(ansi-color-get-face-1): Fix typo in handler.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2806653f67880f4ae09c9d4f174efe3847e852c4..f71543a9aaa107f31e1c4f440601841d9b63fe3e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-09-17  Glenn Morris  <rgm@gnu.org>
 
+       * ansi-color.el (ansi-color-get-face-1): Fix typo in handler.
+
        * simple.el (hard-newline): Give it a doc-string.
 
 2009-09-17  Dan Nicolaescu  <dann@ics.uci.edu>

diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el
index 66f128a2e839cb825b86cfd59fd489ac51156a78..e343f560169a53439791fb718076b987e48584db 100644 (file)
--- a/lisp/ansi-color.el
+++ b/lisp/ansi-color.el
@@ -604,7 +604,7 @@ property of `ansi-color-faces-vector' and `ansi-color-names-vector'."
 ANSI-CODE is used as an index into the vector."
   (condition-case nil
       (aref ansi-color-map ansi-code)
-    ('args-out-of-range nil)))
+    (args-out-of-range nil)))
 
 (defun ansi-color-get-face (escape-seq)
   "Create a new face by applying all the parameters in ESCAPE-SEQ.